home *** CD-ROM | disk | FTP | other *** search
/ Over 1,000 Windows 95 Programs / Over 1000 Windows 95 Programs (Microforum) (Disc 1).iso / 1465 / form1.frm (.txt) < prev   
Encoding:
Visual Basic Form  |  1997-04-07  |  4.3 KB  |  143 lines
  1. VERSION 5.00
  2. Object = "{8074C640-9B80-11D0-8E51-444553540000}#10.0#0"; "Disable.ocx"
  3. Begin VB.Form Form1 
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "Disable"
  6.    ClientHeight    =   3045
  7.    ClientLeft      =   45
  8.    ClientTop       =   345
  9.    ClientWidth     =   2055
  10.    ClipControls    =   0   'False
  11.    ControlBox      =   0   'False
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   3045
  16.    ScaleWidth      =   2055
  17.    StartUpPosition =   2  'CenterScreen
  18.    Begin VB.CommandButton cmdDesktop 
  19.       Caption         =   "Hide Desktop"
  20.       Height          =   375
  21.       Left            =   120
  22.       TabIndex        =   5
  23.       Top             =   2040
  24.       Width           =   1815
  25.    End
  26.    Begin DisableOCX.Disable Disable1 
  27.       Left            =   240
  28.       Top             =   240
  29.       _ExtentX        =   873
  30.       _ExtentY        =   873
  31.    End
  32.    Begin VB.CommandButton cmdStart 
  33.       Caption         =   "Hide Start Button"
  34.       Height          =   375
  35.       Left            =   120
  36.       TabIndex        =   4
  37.       Top             =   1560
  38.       Width           =   1815
  39.    End
  40.    Begin VB.CommandButton cmdTray 
  41.       Caption         =   "Hide Icon Tray"
  42.       Height          =   375
  43.       Left            =   120
  44.       TabIndex        =   3
  45.       Top             =   1080
  46.       Width           =   1815
  47.    End
  48.    Begin VB.CommandButton cmdEnd 
  49.       Caption         =   "End"
  50.       Height          =   375
  51.       Left            =   120
  52.       TabIndex        =   2
  53.       Top             =   2640
  54.       Width           =   1815
  55.    End
  56.    Begin VB.CommandButton cmdSwitching 
  57.       Caption         =   "Disable Switching"
  58.       Height          =   375
  59.       Left            =   120
  60.       TabIndex        =   1
  61.       Top             =   600
  62.       Width           =   1815
  63.    End
  64.    Begin VB.CommandButton cmdTaskBar 
  65.       Caption         =   "Hide Taskbar"
  66.       Height          =   375
  67.       Left            =   120
  68.       TabIndex        =   0
  69.       Top             =   120
  70.       Width           =   1815
  71.    End
  72. Attribute VB_Name = "Form1"
  73. Attribute VB_GlobalNameSpace = False
  74. Attribute VB_Creatable = False
  75. Attribute VB_PredeclaredId = True
  76. Attribute VB_Exposed = False
  77. Private Sub cmdDesktop_Click()
  78.     If cmdDesktop.Caption = "Hide Desktop" Then
  79.         Disable1.DisableDesktop = True
  80.         cmdDesktop.Caption = "Show Desktop"
  81.     ElseIf cmdDesktop.Caption = "Show Desktop" Then
  82.         Disable1.DisableDesktop = False
  83.         cmdDesktop.Caption = "Hide Desktop"
  84.     End If
  85. End Sub
  86. Private Sub cmdEnd_Click()
  87.     Disable1.DisableIconTray = False
  88.     DoEvents
  89.     Disable1.DisableStartButton = False
  90.     DoEvents
  91.     Disable1.DisableTaskBar = False
  92.     DoEvents
  93.     Disable1.DisableTaskSwitching = False
  94.     DoEvents
  95.     End
  96. End Sub
  97. Private Sub cmdStart_Click()
  98.     If cmdStart.Caption = "Hide Start Button" Then
  99.         Disable1.DisableStartButton = True
  100.         cmdStart.Caption = "Show Start Button"
  101.     Else
  102.         Disable1.DisableStartButton = False
  103.         cmdStart.Caption = "Hide Start Button"
  104.     End If
  105. End Sub
  106. Private Sub cmdSwitching_Click()
  107.     If cmdSwitching.Caption = "Disable Switching" Then
  108.         Disable1.DisableTaskSwitching = True
  109.         cmdSwitching.Caption = "Enable Switching"
  110.     Else
  111.         Disable1.DisableTaskSwitching = False
  112.         cmdSwitching.Caption = "Disable Switching"
  113.     End If
  114. End Sub
  115. Private Sub cmdTaskBar_Click()
  116.     If cmdTaskBar.Caption = "Hide Taskbar" Then
  117.         Disable1.DisableTaskBar = True
  118.         cmdTaskBar.Caption = "Show Taskbar"
  119.     Else
  120.         Disable1.DisableTaskBar = False
  121.         cmdTaskBar.Caption = "Hide Taskbar"
  122.     End If
  123. End Sub
  124. Private Sub cmdTray_Click()
  125.     If cmdTray.Caption = "Hide Icon Tray" Then
  126.         Disable1.DisableIconTray = True
  127.         cmdTray.Caption = "Show Icon Tray"
  128.     Else
  129.         Disable1.DisableIconTray = False
  130.         cmdTray.Caption = "Hide Icon Tray"
  131.     End If
  132. End Sub
  133. Private Sub Form_Terminate()
  134.     Call Form_Unload(False)
  135. End Sub
  136. Private Sub Form_Unload(Cancel As Integer)
  137.     Disable1.DisableIconTray = False
  138.     Disable1.DisableStartButton = False
  139.     Disable1.DisableTaskBar = False
  140.     Disable1.DisableTaskSwitching = False
  141.     End
  142. End Sub
  143.